********************************************
* NAMA : KASMO ADIYANTO			   *
* EMAIL: kasmoadiyanto@gmail.com	   *
*	 kasmoadiyanto@yahoo.co.id	   *
*	 momo_ch410@yahoo.com		   *
* Blog : http:\\adiyantokasmo.blogspot.com *
********************************************

Program contoh1;
uses crt;
var
Bil : array[1..10] of real;
Jum,Rata : Real;
i,n : Integer;
Begin
Clrscr;
I := 0;
Jum := 0;
write ('jumlah data: '); readln(N);
while i< n do begin
I:=i+1;
write ('Bilangan ke-',I,':'); readln(Bil[I]);
Jum :=jum+Bil[I];
end;
Rata:=jum/N;
Writeln ('total data:', Jum:6:2);
Writeln ('Rata-rata:', Rata:6:2);
readln;
end.